LDARGS 0
CALL (0, "L2")
STOP
FLabel (1, "L1")
GETBP
OFFSET 0
ADD
LDI
CSTI 1
EQ
IFZERO "L3"
CSTI 1
RET 1
INCSP 0
GOTO "L4"
Label "L3"
GETBP
OFFSET 0
ADD
LDI
GETBP
OFFSET 0
ADD
LDI
CSTI 1
SUB
CALL (1, "L1")
MUL
RET 1
INCSP 0
Label "L4"
INCSP 0
RET 0
FLabel (0, "L2")
INCSP 1
GETBP
OFFSET 0
ADD
CSTI 5
STI
INCSP -1
GETBP
OFFSET 0
ADD
LDI
CALL (1, "L1")
PRINTI
INCSP -1
INCSP -1
RET -1